home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / tfdd.com / TFDD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-30  |  1.2 KB  |  51 lines
  1. (******************************************************************************
  2.  
  3.                                 UNIT  TFDD
  4.  
  5.  
  6. -------------------------------------------------------------------------------
  7. Philippe Ranger  (514) 274 4653
  8. First version  26-6-90          Present version
  9. -------------------------------------------------------------------------------
  10. ADT general, empty text file device driver.
  11. SPECIFICATION
  12.    TfddC class meant only for inheritance, defines common elements of TFDD's,
  13.       as empty, and puts pointer to self at start of UserData.
  14. ******************************************************************************)
  15.  
  16. UNIT tfdd;
  17.  
  18. INTERFACE
  19.  
  20. TYPE
  21.    tfddC = object
  22.       t: text;
  23.       constructor init
  24.       end;
  25.  
  26. IMPLEMENTATION
  27.  
  28. USES dos;
  29.  
  30. {$F+}
  31.  
  32. FUNCTION nulFunc (var t: textRec): integer; BEGIN nulFunc := 0 END;
  33.  
  34.  
  35. CONSTRUCTOR tfddC.init;
  36. VAR selfp: ^tfddC;
  37. BEGIN with textRec(t) do begin
  38.    handle := $FFFF;
  39.    mode := fmClosed;
  40.    bufSize := sizeof(buffer);
  41.    bufPtr := @buffer;
  42.    openFunc := @nulFunc;
  43.    inoutFunc := @nulFunc;
  44.    flushFunc := @nulFunc;
  45.    closeFunc := @nulFunc;
  46.    selfp := @self;
  47.    move (selfp, userData, sizeof(selfp));
  48.    name[0] := #0
  49. END end;
  50.  
  51. END.